SET DAY
The SET DAY statement extracts the day of the week from a date/time field.
????? SET DAY ??? ?????????????????????? ??? ? ??? ?????????????????????? ???
(1) (2) (3) (4)(5) (6) (7) (8)
(1) T/F execution conditions
(2) Destination application ID
(3) Destination field name or PDF
(4) Destination occ (constant/index)
(5) Type (S=short name, L=long name)
(6) Source application ID
(7) Source field name, PDF, or constant
(8) Source occurrence (constant/index)
Using the Statement
If the type (item 5) is S (short), the result is returned in the destination field as three characters (for example, 'Wed'). If the type is L (long), the result is returned in the destination field as up to nine characters (for example, 'Wednesday'). If the source field is blank, the destination field is set to blank.
Restrictions
The destination must be an alpha field type and the source must be a date/time field type containing at least year, month, and day.
Execution Errors
If the source field is one of the Gregorian date/time field types, a non-recoverable error occurs if it does not contain the year, month, and day parts. If the source field is one of the Julian date/time field types, a non-recoverable error occurs if it does not contain the year and day parts.
Related Statements
SET, SET DATE, SET MNTH
Example
The following example begins with an adjustment date, and retrieves and displays all of the days of the week, beginning with that day.
*
* Set and display days of the week
*
SET TAR WORK DATE = TAR ADJUST2 ADJ DATE
BEG LOOP X = 001 TO 007 STEP 001
SET DAY TAR WORK DAY DESCRIPT X S TAR WORK DATE
DATE ADD TAR WORK DATE 5 1
DISPLAY TAR WORK DAY DESCRIPT X (AT APPEARANCE # )
END LOOP X
|